home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
os2
/
ue311gcc.zip
/
EDT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-12-29
|
4KB
|
136 lines
; EDT Keypad Emulator (first order approximation - partial implementation)
; For MicroEmacs 3.10_J (version which allows multiple bindings of meta-prefix)
; VMS and ATARI ST version only.
; by Roy Lomicka February 2, 1988
; Name the keys. Note with V3.10_J, there are very few differences between
; the Atari and VMS versions
;turn keypad commands on with ^X3, off with ^X4 (ANSI versions only)
bind-to-key execute-macro-39 ^X3
39 store-macro
write-message &cat &chr 27 "= keypad on"
!endm
bind-to-key execute-macro-40 ^X4
40 store-macro
write-message &cat &chr 27 "> keypad off"
!endm
; Currently uses macros 31-38
bind-to-key meta-prefix FN^(
set $sterm FN^E
; Unbind currently unimplemented EDT keys:
!force unbind-key M-FN^(
!force unbind-key FN^) ; Help
!force unbind-key M-FN^)
!force unbind-key FN^9 ; Append
!force unbind-key M-FN^9 ; Replace
!force unbind-key M-FN^1 ; Change case
!force unbind-key M-FN^3 ; Special insert
!force unbind-key M-FN^. ; Reset
!force unbind-key FN^E ; Enter
!force unbind-key M-FN^E ; Substitute
bind-to-key execute-macro-31 FN^4 ; Advance
31 store-macro
set $discmd FALSE
bind-to-key search-forward M-FN^/ ; Find
bind-to-key hunt-forward FN^/ ; Find next
bind-to-key execute-macro-33 FN^7 ; Page (next-ff)
bind-to-key next-page FN^8 ; Section
bind-to-key next-word FN^1 ; Word
bind-to-key forward-character FN^3 ; Char
bind-to-key execute-macro-35 FN^0 ; Beginning of line (next-bol)
bind-to-key execute-macro-37 FN^2 ; End of line (next-eol)
set $discmd TRUE
write-message "EDT Directional Mode = Advance"
!endm
execute-macro-31
bind-to-key execute-macro-32 FN^5 ; Backup
32 store-macro
set $discmd FALSE
bind-to-key search-reverse M-FN^/ ; Find
bind-to-key hunt-backward FN^/ ; Find next
bind-to-key execute-macro-34 FN^7 ; Page (prev-ff)
bind-to-key previous-page FN^8 ; Section
bind-to-key previous-word FN^1 ; Word
bind-to-key backward-character FN^3 ; Char
bind-to-key execute-macro-36 FN^0 ; Beginning of line (next-bol)
bind-to-key execute-macro-38 FN^2 ; End of line (next-eol)
set $discmd TRUE
write-message "EDT Directional Mode = Backup"
!endm
; Caution - Delete eol, Delete line, and Delete word
; use the same buffer as Cut, so Paste and
; the Undelete keys are bound identically.
; Note that although Delete char is defined
; in this group, it does not participate in
; the Cut/Paste/Delete/Undelete process.
bind-to-key kill-to-end-of-line M-FN^2 ; Delete eol
bind-to-key kill-to-end-of-line FN^* ; Delete line
bind-to-key delete-next-word FN^- ; Delete word
bind-to-key delete-next-character FN^, ; Delete char
bind-to-key yank M-FN^* ; Undelete line
bind-to-key yank M-FN^- ; Undelete word
bind-to-key yank M-FN^, ; Undelete char
bind-to-key execute-named-command M-FN^7 ; Command
bind-to-key fill-paragraph M-FN^8 ; Fill
bind-to-key end-of-file M-FN^4 ; Bottom
bind-to-key beginning-of-file M-FN^5 ; Top
bind-to-key kill-region FN^6 ; Cut
bind-to-key yank M-FN^6 ; Paste
bind-to-key open-line M-FN^0 ; Open line
bind-to-key set-mark FN^. ; Select
; next-ff
33 store-macro
set %search $search
!force search-forward "~f"
set $search %search
!endm
; prev-ff
34 store-macro
set %search $search
!force search-reverse "~f"
set $search %search
!endm
; next-bol
35 store-macro
beginning-of-line
next-line
!endm
; prev-bol
36 store-macro
backward-character
beginning-of-line
!endm
; next-eol
37 store-macro
forward-character
end-of-line
!endm
; prev-eol
38 store-macro
previous-line
end-of-line
!endm